home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr01
/
halcn305.zip
/
TUTOR01.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-21
|
781b
|
25 lines
program Tutor01;
{$N+,E+} {Required for floating point number handling}
uses
CRT,
GSOB_DBF,
GSOB_VAR;
var
MyFile : GSO_dBaseFld;
begin
ClrScr;
MyFile.Init('TUTOR1'); {Initialize object using the dBase III}
{file TUTOR1. DBF Extension assumed}
MyFile.Open; {Open the object's file}
MyFile.GetRec(Top_Record); {Get the first record in the file}
while not MyFile.File_EOF do {Repeat until end-of-file}
begin
writeln(MyFile.FieldGet('LASTNAME'),' ',
MyFile.FieldGet('FIRSTNAME'),' ',
MyFile.FieldGet('BIRTHDATE'));
MyFile.GetRec(Next_Record); {Get the next sequential record}
end;
MyFile.Close;
end.